home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / CDTools / GoFetch! / arexx / Neil_Bothwick / GoFetch.thor < prev   
Text File  |  1999-12-11  |  638b  |  32 lines
  1. /*
  2.     $VER: GoFetch.thor 1.0 (11.12.99)
  3.     by Neil Bothwick
  4.  
  5.     Runs GoFetch.br for the current system
  6.     Can be called from the Arexx menu or as a system exit event
  7. */
  8.  
  9. /* Initialise */
  10. options results
  11. thorport = address()
  12. if left(thorport,5) ~= 'THOR.' then do
  13.     say 'GoFetch.thor must be run from within Thor.'
  14.     exit
  15.     end
  16.  
  17. if ~show('p', 'BBSREAD') then do
  18.     address command
  19.     'run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead'
  20.     'WaitForPort BBSREAD'
  21.     end
  22.  
  23. /* Get current system name and arexx directory */
  24. address(thorport)
  25. drop TMP.
  26. 'CURRENTSYSTEM stem TMP'
  27. System = TMP.BBSNAME
  28.  
  29. /* Run GoFetch.br */
  30. address command 'rx rexx/GoFetch.br' System
  31.  
  32.